* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for

now, when the address is needed.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1b5fe7d6bcf89e5ec7460d955937ebe3886d8752..6cd3d78d23bed534c6c1d79793cbecc825830414 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-21  Ken Raeburn  <raeburn@gnu.org>
+
+       * w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for
+       now, when the address is needed.
+
 2002-05-21  Colin Walters  <walters@gnu.org>
 
        * Makefile.in (shortlisp): Add font-core.el.

diff --git a/src/w32fns.c b/src/w32fns.c
index a19aa953f3781bf7c17aefc6fadd2d7f07bc4eab..6053e1d4ca3278959814db65b39429ba7475424f 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -7252,7 +7252,7 @@ enum_font_maybe_add_to_list (lpef, logfont, match_charset, width)
       if (NILP (Fmember (font_name, lpef->list)))
        {
          *lpef->tail = Fcons (Fcons (build_string (buf), width), Qnil);
-         lpef->tail = &(XCDR (*lpef->tail));
+         lpef->tail = &(XCDR_AS_LVALUE (*lpef->tail));
          lpef->numFonts++;
        }
     }